home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS064.dsk / LEASE COMPUTATION.bas < prev    next >
BASIC Source File  |  2012-02-16  |  4KB  |  143 lines
  1. 10  CALL  -936
  2. 20  VTAB 4
  3. 30  PRINT  TAB( 5);"LEASE COMPUTATION"
  4. 40  VTAB (6)
  5. 50  PRINT "  1)  1ST TENNESSEE BANK"
  6. 60  PRINT "  2)  U C LEASING"
  7. 69  PRINT "  9)  END PROGRAM"
  8. 70  PRINT : INPUT "ENTER YOUR CHOICE? ";B$
  9. 80  IF B$ = ""  THEN  STOP 
  10. 90  IF B$ = "1"  THEN  GOSUB 1000
  11. 100  IF B$ = "2"  THEN  GOSUB 2000
  12. 109  IF B$ = "9"  THEN  STOP 
  13. 110  GOTO 70
  14. 1000  DIM CST(4,2),RTE(4,5),MNTH(5)
  15. 1005  FOR I = 1 TO 4
  16. 1010  FOR J = 1 TO 2
  17. 1020  READ CST(I,J)
  18. 1030  NEXT : NEXT 
  19. 1040  DATA  2000.,4999.,5000.,7999.,8000.,9999.,10000.,9999999.99
  20. 1050  FOR I = 1 TO 5
  21. 1060 MNTH(I) = I *12 +12
  22. 1070  FOR J = 1 TO 4
  23. 1080  READ RTE(J,I)
  24. 1090  NEXT : NEXT 
  25. 1100  DATA  .0494,.0490,.0485,.0480
  26. 1110  DATA  .0357,.0352,.0347,.0342
  27. 1120  DATA  .0289,.0283,.0278,.0273
  28. 1130  DATA  .0249,.0243,.0238,.0233
  29. 1140  DATA  .0222,.0217,.0211,.0206
  30. 1150  CALL  -936
  31. 1160  PRINT "COMPUTATION OF 1ST TENN LEASING RATE"
  32. 1170  PRINT 
  33. 1180  PRINT "ACCEPTABLE LEASE LENGTHS:"
  34. 1190  PRINT 
  35. 1200  PRINT "1)  24 MONTHS"
  36. 1210  PRINT "2)  36 MONTHS"
  37. 1220  PRINT "3)  48 MONTHS"
  38. 1230  PRINT "4)  60 MONTHS"
  39. 1240  PRINT "5)  72 MONTHS"
  40. 1250  PRINT : PRINT "ENTER # OF MONTHS:";
  41. 1260  INPUT MN
  42. 1270  FOR I = 1 TO 5
  43. 1280  IF MN = MNTH(I)  THEN 1310
  44. 1290  NEXT 
  45. 1300  GOTO 1150
  46. 1310  VTAB 13: PRINT : CALL  -958
  47. 1315  VTAB 13: PRINT "ENTER LEASE AMOUNT "
  48. 1320  PRINT "MINIMUM AMOUNT IS $2000"
  49. 1330  PRINT : INPUT "AMOUNT OF YOUR LEASE? ";LA
  50. 1340  IF LA <2000  THEN 1310
  51. 1350  FOR J = 1 TO 4
  52. 1360  IF (CST(J,1) < = LA)  AND (CST(J,2) > = LA)  THEN 1390
  53. 1370  NEXT 
  54. 1380  STOP 
  55. 1390 LP = LA *RTE(J,I)
  56. 1400 LA =  INT(LA *100 +.5)/100
  57. 1410 LP =  INT(LP *100 +.5)/100
  58. 1411 PA = LA: GOSUB 3000
  59. 1412 X$ = P$
  60. 1413 PA = LP: GOSUB 3000
  61. 1414 Y$ = P$
  62. 1420  PRINT 
  63. 1430  PRINT "A ";MNTH(I);" MONTH LEASE ON ";X$;" DOLLARS"
  64. 1440  PRINT "WILL COST ";Y$;" DOLLARS PER MONTH"
  65. 1450  PRINT 
  66. 1460  PRINT "COMPUTE ANOTHER 1ST TN LEASE (Y/N) ";: INPUT A$
  67. 1470  IF A$ = ""  THEN 1490
  68. 1480  IF A$ = "Y"  THEN 1150
  69. 1490  CLEAR : GOTO 10
  70. 2000  DIM CST(3,2),RTE(2,3,4),MNTH(4)
  71. 2002  FOR I = 1 TO 28: READ CST(1,1): NEXT 
  72. 2010  FOR I = 1 TO 3
  73. 2020  READ CST(I,1),CST(I,2)
  74. 2030  NEXT 
  75. 2040  DATA  1000.,4999.,5000.,9999.,10000.,9999999.99
  76. 2050  FOR I = 1 TO 4
  77. 2060 MNTH(I) = 12 *I +12
  78. 2070  FOR J = 1 TO 3
  79. 2080  READ RTE(1,J,I),RTE(2,J,I)
  80. 2090  NEXT : NEXT 
  81. 2100  DATA  .0458,.0492,.0453,.0488,.0,.0
  82. 2110  DATA  .0335,.0356,.0331,.0352,.03230,.03447
  83. 2120  DATA  .0275,.0290,.0271,.0285,.02623,.02773
  84. 2130  DATA  .0240,.0250,.0235,.0245,.02265,.02375
  85. 2140  CALL  -936
  86. 2150  PRINT "COMPUTATION OF U C LEASING RATE"
  87. 2160  PRINT "ACCEPTABLE LEASE LENGTHS:"
  88. 2165  PRINT 
  89. 2170  PRINT "1)  24 MONTHS ( $9999 MAX )"
  90. 2180  PRINT "2)  36 MONTHS"
  91. 2190  PRINT "3)  48 MONTHS"
  92. 2200  PRINT "4)  60 MONTHS"
  93. 2210  PRINT 
  94. 2220  INPUT "ENTER # OF MONTHS:";NM
  95. 2230  FOR I = 1 TO 4
  96. 2240  IF MNTH(I) = NM  THEN 2270
  97. 2250  NEXT 
  98. 2260  GOTO 2140
  99. 2270  PRINT 
  100. 2272  VTAB 11: CALL  -958: VTAB 11
  101. 2280  PRINT "NOW ENTER THE LEASE AMOUNT"
  102. 2290  PRINT "MINIMUM AMOUNT IS $1000"
  103. 2300  IF I = 1  THEN  PRINT "MAXIMUM AMOUNT IS $9999"
  104. 2305  PRINT 
  105. 2310  INPUT "YOUR LEASE AMOUNT? ";LA
  106. 2320  IF LA <1000  THEN 2272
  107. 2330  IF I = 1  AND LA >9999  THEN 2272
  108. 2340  PRINT 
  109. 2350  VTAB 17: CALL  -958: VTAB 17
  110. 2360  PRINT "ENTER 1 FOR 10% RESIDUAL"
  111. 2370  PRINT "      2 FOR FULL PAY OUT"
  112. 2380  INPUT "ENTER LEASE TYPE: ";K
  113. 2390  IF K <1  OR K >2  THEN 2350
  114. 2400  FOR J = 1 TO 3
  115. 2410  IF CST(J,1) < = LA  AND (CST(J,2) > = LA)  THEN 2440
  116. 2420  NEXT 
  117. 2430  STOP 
  118. 2440 LP = LA *RTE(K,J,I)
  119. 2450 LP =  INT(LP *100 +.5)/100
  120. 2460  PRINT 
  121. 2461 PA = LA: GOSUB 3000
  122. 2462 X$ = P$
  123. 2463 PA = LP: GOSUB 3000
  124. 2464 Y$ = P$
  125. 2470  PRINT "A ";MNTH(I);" MONTH LEASE ON ";X$;" DOLLARS"
  126. 2480  PRINT "WILL COST ";Y$;" DOLLARS PER MONTH"
  127. 2490  PRINT 
  128. 2500  PRINT "COMPUTE ANOTHER U C LEASE (Y/N) ";: INPUT A$
  129. 2510  IF A$ = ""  THEN 2530
  130. 2520  IF A$ = "Y"  THEN 2140
  131. 2530  CLEAR : GOTO 10
  132. 3000 P$ =  STR$(PA)
  133. 3010 PL =  LEN(P$)
  134. 3020  FOR U = PL TO 1  STEP  -1
  135. 3030  IF  MID$ (P$,U,1) = "."  THEN 3070
  136. 3040  NEXT 
  137. 3050 P$ = P$ +".00"
  138. 3060  RETURN 
  139. 3070  IF U = PL -2  THEN  RETURN 
  140. 3080 P$ = P$ +"0"
  141. 3090  IF U = PL -1  THEN  RETURN 
  142. 3100 P$ = P$ +"0"
  143. 3110  RETURN